graph_testing

Sex Graphs

data$site = gsub("Marshfield.*", "Marshfield", data$site)
unique(data$site)

[1] "KP-Hawaii"             "KP-Colorado"           "KP-Northwest"         
[4] "KP-Georgia"            "Marshfield"            "Sanford Health"       
[7] "Henry Ford"            "University of Chicago"

data <- data %>%
  filter(!(site == "University of Chicago" & month == 4 & year == 2023)) %>%
  filter(!(site == "University of Chicago" & month == 11 & year == 2020))

`summarise()` has grouped output by 'race_ethnicity'. You can override using
the `.groups` argument.
`summarise()` has grouped output by 'race_ethnicity'. You can override using
the `.groups` argument.

`summarise()` has grouped output by 'race_ethnicity'. You can override using
the `.groups` argument.
`summarise()` has grouped output by 'race_ethnicity'. You can override using
the `.groups` argument.

`summarise()` has grouped output by 'race_ethnicity'. You can override using
the `.groups` argument.
`summarise()` has grouped output by 'race_ethnicity'. You can override using
the `.groups` argument.

`summarise()` has grouped output by 'race_ethnicity'. You can override using
the `.groups` argument.
`summarise()` has grouped output by 'race_ethnicity'. You can override using
the `.groups` argument.

`summarise()` has grouped output by 'race_ethnicity'. You can override using
the `.groups` argument.
`summarise()` has grouped output by 'race_ethnicity'. You can override using
the `.groups` argument.

`summarise()` has grouped output by 'race_ethnicity'. You can override using
the `.groups` argument.
`summarise()` has grouped output by 'race_ethnicity'. You can override using
the `.groups` argument.

`summarise()` has grouped output by 'race_ethnicity'. You can override using
the `.groups` argument.
`summarise()` has grouped output by 'race_ethnicity'. You can override using
the `.groups` argument.

`summarise()` has grouped output by 'race_ethnicity'. You can override using
the `.groups` argument.
`summarise()` has grouped output by 'race_ethnicity'. You can override using
the `.groups` argument.

by_sex_scatter_stacked(data, "KP-Hawaii")

by_sex_scatter_stacked(data, "KP-Colorado")

by_sex_scatter_stacked(data, "KP-Northwest")

by_sex_scatter_stacked(data, "KP-Georgia")

by_sex_scatter_stacked(data, "Marshfield")

by_sex_scatter_stacked(data, "Sanford Health")

by_sex_scatter_stacked(data, "Henry Ford")

by_sex_scatter_stacked(data, "University of Chicago")

by_ruca_scatter_stacked(data, "KP-Hawaii")

by_ruca_scatter_stacked(data, "KP-Colorado")

by_ruca_scatter_stacked(data, "KP-Northwest")

by_ruca_scatter_stacked(data, "KP-Georgia")

by_ruca_scatter_stacked(data, "Marshfield")

by_ruca_scatter_stacked(data, "Sanford Health")

by_ruca_scatter_stacked(data, "Henry Ford")

by_ruca_scatter_stacked(data, "University of Chicago")

by_insurance_scatter_stacked(data, "KP-Hawaii")

by_insurance_scatter_stacked(data, "KP-Colorado")

by_insurance_scatter_stacked(data, "KP-Northwest")

by_insurance_scatter_stacked(data, "KP-Georgia")

by_insurance_scatter_stacked(data, "Marshfield")

by_insurance_scatter_stacked(data, "Sanford Health")

by_insurance_scatter_stacked(data, "Henry Ford")

by_insurance_scatter_stacked(data, "University of Chicago")

by_ses_scatter_stacked(data, "KP-Hawaii")

by_ses_scatter_stacked(data, "KP-Colorado")

by_ses_scatter_stacked(data, "KP-Northwest")

by_ses_scatter_stacked(data, "KP-Georgia")

by_ses_scatter_stacked(data, "Marshfield")

by_ses_scatter_stacked(data, "Sanford Health")

by_ses_scatter_stacked(data, "Henry Ford")

by_ses_scatter_stacked(data, "University of Chicago")